
Partial Class Content_P002
    Inherits System.Web.UI.Page

    Protected Sub btnFind_Click(ByVal sender As Object, ByVal e As System.Web.UI.ImageClickEventArgs)
        If Me.txtDate.Text <> "" Then
            If Me.ddlType1.Text = "L" Then
                Me.Response.Redirect("P002_REP_L_N.aspx?date=" + Me.txtDate.Text + "&type1=" + Me.ddlType1.Text)
            ElseIf Me.ddlType1.Text = "C" Then
                Me.Response.Redirect("P002_REP_C_N.aspx?date=" + Me.txtDate.Text + "&type1=" + Me.ddlType1.Text)
            End If

        End If
    End Sub

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        '-----Chect Authority--------
        Dim role_prg = "P002"
        Dim user_id = Session("user_id")
        Dim cls_aut As New AUTHORITY

        If cls_aut.DoCheck(user_id, role_prg) = "0" Then
            Me.Response.Redirect("ERROR_AUT.aspx")
        End If
    End Sub
End Class
